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1 C 
§ : ¥ Version: *v04-000' 
¢ Cee MRRARAAAALARALERARLASLALASLEALESESE EEE SEE ER EEE EEE ESE EEE LEASE EEE SECO SESE LESS Aa 
e e 
C* Sr4ttd gM ‘ol ore 1980 1982, 1984 BY * 
Ce DIGITAL E T CORPORATION, MAYNARD, MASSACHUSETTS. “ 
0008 - ALL RIGHTS” RESERVED. * 
0009 ® 
0010 C* THIS SOFTWARE i yeni ence unee A LICENSE AND MAY BE USED AND COPIED * 
11 C* ONLY IN ACCORDANCE WITH THE TERRS OF SUCH biceNse AND WITH THE ®* 
\¢ C* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 Ce COPIES THEREOF oat NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ete C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
AF - TRANSFERRED. * 
w ® 
$019 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
84 eS CORPORATION. * 
® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS x 
88 § es SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
0024 Ce * 
00. 5 Ceee eee eee eee AEH HARA HAA HAHAHAHAHA AAAAAHEKHAHEAAAAAeAARAeeKeeeeeeeeeeeeee 
38 
0038 c Author Brian Porter Creation date 10-FEB-1982 
0030 c++ 
eth c Functional description: 
C 
0038 c This module displays entries logged by MSCP disks (dudriver) and 
Boge c and MSCP tapes (tudriver). 
c 
00 C Modified by: 
0037 c ” 
00 C v03-007 EADOZOO Elliott A. Drayto 23-Jul-1984 
44 ; Added code to mark the begining of the intervening entries. 
1 C v03-006 SARO272 Sharon A. Reynolds 18-Jun-1984 
¢ C = Re-structured and re-named the routines in this 
C module to handle disk or tape MSCP entries for the 
$ : addition of TMSCP support. 
pose C v03-005 SAR0197 Shoren A. Reynolds, 20-F eb-1984 
BRE C Added an Sys update 
; : Removed ‘invalid a "aennandl end message’. 
50 C v03-004 SARO157 Sharon A. Reynolds, 12-0c t-1983 
51 C Added an SYE update tha 
2g C - adds an extra arguement to the ‘dudriver_mscp_dispatcher' 
5 C routine. 
54 C - adds extra arguement to the call for the 
55 C dudriver_mscp_d spotener® routine. 
2$ C - adds an extra Srquenent to the calls for several 
5 C routines that reside in ‘mscp.for’. 


Kk 16 
Ig=gen= 138% 90:40:38 VAX-11 FORTRAN “7 


3.4 2 
ep-19 DISKSVMSMASTER: CERF. 


a 
CIDUTUDRIVR.FOR; 


0058 C 

25 C v03-003 SARO0072 sharon A. Reynolds, 20-Jun-1983 

C Changed the carriage control in the ‘format’ statements 

0061 : for use with ERF. 
$068 c v03-002 BP0002 Brian Porter, 08-F EB-1983 
Bpee ¢ Corrected argument List to erllogmsg2. 
B68 C v03-001 BP0001 Brian Porter, 19=APR=-1982 
sie a Made changes to accomodate invalid command mscp messages. 


ow 
o 
a 
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0071 Subroutine DISK_TAPE_DRVR_MSCP_DISPATCHER Siu SORTER FOCERE 
oh 4 1 mount_flag_and_labél,record_Tength,queue_count 
0074 
0075 include ‘src$:msghdr.for /nolist' 
134 include ‘src$:embimdef.for /nolist' 
$02 include ‘src$:embspdef.for /nolist' 
317 
318 byte lun 
319 
$59 character*1 option 
356 c This value RECCNT is not the record number of the entry just read from the 
32 C orriog.sys file it is the value which was saved in the queue when this 
3246 ¢ routine is called by _DQ. 
: i integers4 reccnt 
c 
$55 integers4 mount_flag_and_label 
28 integer*4 record_length 
388 Integer*4 queve_coun 
te! Integer*4 packet_Llength 
3 § byte ms\g$b_ format 
; equivalence (emb (46) ,mslg$b_ format) 
35 
336 if Cemb$w_hd_entry .eq. 100) then ! Logmessage entry 


~ 


Determine whether to output the long or short header and call 
the appropriate routine. 


COO 


If (queve_count .£Q0. 1) then 


Call FRCTOF (Lun) 
Call HEADER2 (Llun,reccnt) 
Else 

Call HEADERS (Llun,reccnt) 

Endif 

Call LOGGER (lun, *ERLSLOGMESSAGE ENTRY") 
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16 
DISK_TAPE_DRVR_MSCP_DISPATCHER IBese -1984 00:20: VAX=11 FORTRAN V3.4-56 P 
~Sep-19 4 99:80:38 DISKSVMSMASTER: CERF. SRCIDUTUDRIVR.FORST™ . 
0353 Call DHEADS (lun,'1/0" ,emb$b_im_naming,emb$t_lm_name,emb$w_lm_unit, 
9 4 1 mount_flag_and. Label S 
8 3 Packet_length = record_length - 39 
° 38 if (msig$b_format .eq. 0) then ! Controller error 
ey it ses" e t ERR (lun ket_Length) 
a n,packet_len 

° ¢ else if (mslg$b_format .eq. 1) then ! Memory access error 
0 if fens ton -eq. ‘S*) then 
0367 Call MSLGSK_BUS_ADDR (Llun,packet_length) 
0369 endif 
0370 lse if (¢ ! Disk/tape transfer error 

0371 msig$b_format .eq. 2 ! mslg$k_disk_trn 
b358 

37 

374 

375 

376 f aps ion -eqg. ‘S*) then 

377 all DISK _TAPE_TRANSFER_ERRORS (Llun,packet_length) 

a8 ndif 

380 lse if ( ! S$DI/STI errors 

381 msig$b_format .eq. ! Disk SDI comm error = mslg$k_sdi 


e 
€ 

: 3 

: ms\g$b_ format -EQ. 6 ! Tape STI comm or cmd failure - mslg$k_sti_err 
mslg$b_format .£Q. 7 ! Tape STI Drive Error Log - mslg$k_sti_de! 
1 8 

1 
C 
e 


! Tape STI Formatter Error Log - mslg$k_sti_fel 


@ 
: 

1 ms\g8b_ format -EQ. 5 ! mslg$k_tape_trn 
1) then 

i 

C 

.0 . 

goles. fornet -EQ. 

) then 

i 


f (lo 
all 
ndif 


else if (msig$b_format .eq. 4) then ! Small Disk error 


es ies 1°90; *S") then 
DI_STI_LERRORS (Lun, packet_length) 


if fopt ton .eq. ‘S*) then 
Coty SLGSK_SML_DSK (lun,packet_length) 
en 


else 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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3 
3 
3 
3 
3 
3 
04 
04 
04 
Be 
04 


Unknown format type, call a routine that will decode/output the header 
information and dump the rest of the packet in a hex longword format. 


Call ERLLOGMSG2 (lun,record, Length) 
endif 


OOO 


else if (emb$w_hd_entry .eq. 99) then ! Logstatus entry 


SRLSSRDRISSS ESR aS sSee Seo e eS 


M 16 
DISK_TAPE_DRVR_MSCP_DISPATCHER :* 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 426 PIC CON REL LCL SHR 
1 SPDATA 45 PIC CON REL LCL SHR NOEXE 
2 $SLOCAL 164 IC CON REL LCL NOSHR NOEXE 
3 EMB 512 PIC OVR REL GBL SHR NOEX 
Total Space Allocated 1147 


ENTRY POINTS 


Address Type Name 


0-00000000 DISK_TAPE_DRVR_MSCP_DISPATCHER 
VARIABLES 
Address Type Name Address Type Name 


Sep-1986 $3:54:28 


0410 C 

0411 C Determine whether to output the long or short header and call 
pat§ : the appropriate routine. 

0414 (queue count .—Q. 1) then 

0415 Call FRCTOF (lun) 

0416 Call HEADER2 (Lun,reccnt) 

0417 

0418 Else 

0419 Call HEADERS (Lun,reccnt) 

0431 Endif 

b25$ Call LOGGER (Lun,"ERLSLOGSTATUS ENTRY") 

0424 Call DHEAD3 (Lun,'1/0' ,emb$b_sp_naming,emb$t_sp_name,emb$w_sp_unit, 
O45 1 mount_flag_and. Label5 

0427 Call ERLLOGSTS2 (lun) 

0428 endif 

0429 

0430 return 

0431 end 


VAX=11 FORTRAN it Pees Page 
DISKSVMSMASTER: ERF..SRCJDUTUDRIVR.FOR;t 


RD NOWRT LONG 
RD NOWRT LONG 


WRT LONG 
WRT LONG 
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DISK_TAPE _DRVR_MSCP_DISPATCHER 1 


mn 
a 

a 

J 


FUNC 
nb-000000109 {4 ROUNT-FLRG.AND_LABEL ; 
AP-00000008a OPTION 


AP=00000018@ 1*4 QUEUE COUN AP- 


-00000015 CHAR EMBST_LM_NAME 
I*2 EMB 
; 
Pp 
AP-00000014a I*4 RECORD_ CENGTH 


es 

| 

| §- 12 1sg  EMBSU~SP-BOFE 
7 ; 

| ARRAYS 

Address Type Name Bytes Dimensions 


3-00000000 i*1 EMB 
S-pooeen ie te] EMBSB_LM_MSGTXT 460 (4 
-00000006 I*4 EMBS$Q~ HD TIME 8 (2 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
DHEAD3 DISK_TAPE_TRANSFER_ERRORS ERLLOGMSG2 
ERLLOGSTS2 FRCTOF HEA 
HEADERS LOGGER MSLGS$K_BUS_ADDR 
MSLGS$K_CNT_ERR MSLGSK_SML_DSK SDI_STI_ERRORS 


: § VAX=-11 FORTRAN V3.4-56 
DISKSVMSMASTER:LERF. SRC IDUTUDRIVR. FOR: 


meg 
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talt alt alt alt alt ali alt od 


0 
0 
0 
0 
0 
0 
0 
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1§-Sep-1984 00:0:38 TE EKSUNGRASTEN PERF SeCIDUTUDRIVR.FOR DT 


se 
000 
0004 c++ 
0005 c Since mscp error log entries are delivered from the port via 
0006 C the datagram service it is possible for them to be delivered 
0007 C out of sequence or duplicated. It is the responsibility of 
0008 c this queue to collect all entries containing the same command 
0009 C reference for a given cpu together. They are placed in order 
aA c of error log entry type. 
c 
O08 c The format of the elements are as follows 
c 
0014 Cc peewee ewwowoooown§ seceeoocooccceno= + 
0015 v4 H flink1 ' 
001 6 Cc gece owaee wear ena neeoe Sew ec re ee weer + 
0017 c H blink’ ' 
c H ogging s H 
0620 Cc toon mmm ecm eran (ee Oe eS a om es we ee oe ae seo oem ee net 
0021 c H root command reference flink H 
Oos¢ c deme n esr erenceae Semen sancee Serene resaes . 
002 C { root command reference blink i; 
0024 Cc boon rwmecer mee anew ae eect wees one aece 
0025 c : command reference entry count : 
0026 Cc $¢wroces esc ee eee wee ere soe sce emer eemseee 
0027 c 
0028 Cc ne ee er Sr 
0029 Cc : flink2 H 
0030 Cc tesecencecs Pe SOR OEE ERS Ke OSGOOD oeo-+ 
0031 C : blink2 ! 
itt 4 Cc Geeeeeceeooosseweoeeooecoccococecoon + 
003 c ' command reference number H 
0034 Cc for mam oeoerwwmececeaen eae women eonamoae - 
it Fe c : root_emb$$w_hd_entry_flink H 
Cc SS ee ee (ae ee ue eee mem ee mee (oe ed 3 CE OD oe Se a oe on we a ee 
0037 c H root_emb$$w_hd_entry_blink : 
0038 Cc Pewee soem no mee mawan oe be 
0039 c H emb$$w_hd_entry count : 
0040 Cc pow n ew ere waster eee sos ema nme eoncocamoem + 
0041 c 
Boeg Cc goon cence em eec ee een e mame ween more enne + 
004 ¢ : flink3 H 
Boee C oem sese sew eonwowoe PBR emenemonoe ene omee oo 
5 C H blink3 H 
Bee Cc ¢ eee cee nr wn cece ee oo + 
7 c : emb$$w_hd_entry : 
0048 Cc Power wnn eee ene emoe- = Beer eeserwemnrmaooae + 
nh C : error log record number i 
Cc tow eae nen Soe o wee ewe ema s eee. rzreevreere 
$081 c : error log record size (bytes) : 
ts) Cc wwe crenes eereeecerzcece eecoceceon eereaosees + 
if Cc : : 
Bees c ‘ ° 
56 c > error log record " 
0057 C . ° 


— 


D1 
Merete 99:80:38 I SMGGASTEN PERE seecaoUTUDRIVR.FORTT® 


“| 


0059 C H H 
Bees Cc Pot cs ie eeeeeaee seam ewe + 
C : mounte a ' 
BOs Cc owe wmmmeneanaeoeaoe . are ee aoemanweacs 4 
006 C : H 
0064 c on eed 
0065 C : mounted volume label (if any) | 
0067 C : H 
Bpee C ¢eweweeoeeecoececeoesecooocoesesceca + 
¢ee 
0070 
0071 
og 
007 Subroutine DISK_TAPE_DRIVERS_MSCP_Q (record_length,reccnt, 
pate 1 search_command_reférence_number) 
0076 
0077 include ‘src$:msghdr.for /nolist' 
0136 include ‘src$:emblmdef.for /nolist' 
Be03 include ‘src$:embspdef.for /nolist' 
0319 
0320 
0321 byte Lun 
O3s§ 
032 character*1 option 
0324 
0325 integert4 record_length 
0326 integers4 reccnt 
0327 integer*4 search SpRRENE, pererenne pumber 
0328 integer*4 buf ferT2) 
hi om Meee Lib$Sget_vm 
0330 integere4 insert_Blink 
0331 integert4 lLogging_sid_entry_address 
O8s integer*4 command _reference_entry_address 
033 integer*4 emb$$w_hd entry addre 
0334 integer4 root_logging_sid_flink 
See, integer*4 root_logging_sid_blink 
0337 equivalence (buf fer(1),root_logging_sid_flink) 
0339 equivalence (buf fer(2),root_logging_sid_bl ink) 
0 integer*4 Logging_sid_entry_count 
orl datee lopsing-sid-entry-count /0/ 
0328 integer*4 buf fer1(6) 
344 integer*4 flink1 
345 integere4 blink! 
346 integer*4 logging_sid 
0347 integere4 root_command_reference_flink 
348 integert4 root_command_reference_bl ink 
4 integers4 command_reference_entry_count | 
8 51 equivalence (buf fer1(1),flink1) | 
52 equivalence (buf fer1(2),bl ink1) | 
| 
| 
} 


o 
oo 


if (logging_sid .eq. emb$l_hd_sid) then 
10 command_reference_entry_address = root_command_reference_flink 
do 90,j = 1,command_reference_entry_count 
call movc3 (Z%val(24),%val(command_reference_entry_address) ,buffer2) 
iF sconmend_reterence mumber eq. search_command_reference_number) 
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| 1 | 
| DISK_TAPE_DRIVERS_MSCP_Q 1§-Sep-1984 00:20:36 VAX=11_ FORTRAN V3.4=56 Page 8 Ef 

| “Sep-1984 13:54: DISKSVMSMASTER: CERF .SRCIDUTUDRIVR.FOR; | 
0 ep equivalence (buf fer] (3). Logging.sid) | ; 
0354 equivalence (buf fer1(4) ,root_command_reference_flink) ; 
0355 equivalence (buf feri(5),root_command_reference_bl ink) ; 
: 28 equivalence (buf fer1(6) ,command_reference_entry_count) ; 
0358 integer*4 but fer2(6) | 
8825 integert4 SB bey : 
0360 integers4 blink . 
0361 integer*4 command _reference_number : ; 
0366 integer*4 root_emb$$w_hd_entry_flink : 
036 integers4 root _emb$$w_hd_entry_blink ‘ 
tre integer*4 emb$$w_hd_entry_count ‘ 
0366 equivalence (buffer £1} oft inkg? : 
0367 equivalence (buf fer a ) : 
0368 equivalence (buf fer2(3) ,command reference number) : 
0369 equivalence (buf fer2(4) ,root_emb$$w_hd_entry_flink) : 
0370 equivalence (buf fer2(5),root_emb$$w_hd_entry_blink) : 
O37) equivalence (buf fer2(6) ,emb$$w_hd_entry_count) . 
0378 integers4 buf fer3(5) : 
0374 integer*4 flink3 ° 
0375 integer*4 blink3 : 
0376 integer*4 emb$$w_hd_entry : 
0377 integers4 error_tog_record_number : 
pefe integer*4 error_log_record_length ‘ 
0380 equivalence (buf fer3(1),flink3) ‘ 
0381 equivalence (buf fer3(2) ,blink3) ; 
04 equivalence (buf fer3(3) ,emb$$w_hd_entry) : 
038 equivalence (buf fer3(4) ,error_Tog_record_number) ; 
Oee equivalence (buf fer3(5),error_log_record_length) : 
0386 : 
Oeen if (logging_sid_entry_count .eq. 0) then : 
0389 root_logging_sid_flink = Zloc(root_logging_sid_flink) : 
0390 root~ topping sid-bl ink = root. Logging sid fl ink : 
333) endif : 
0398 logging_sid_entry_address = root_logging_sid_flink : 
0395 do 100,i = 1,logging_sid_entry_count : 
39 call movc3 (Zval(24),%val(logging_sid_entry_address) ,buffer1) | : 
: 
3 
: 
. 
| F 
: 

| 

| 

| 


ee —- — 


ce 
| DISK_TAPE_DRIVERS_MSCP_Q 1 =300°138% 90:20:36 VAX-11 FORTRAN i Pegs page 9 
| “Sep-1984 15:54: DISKSVMSMASTER: CERF .SRCIDUTUDRIVR.FOR; 


25 insert_blink = root_emb$$w_hd_entry_blink 
if (emb$$w_hd_entry_count .ne. 0) then 
call movc3 (%val(12),%val(root_emb$$w_hd_entry_blink) ,buffer3) 
if (emb$$w_hd_entry .lt. emb$w_hd_entry) then 
insert_blink = blink3 
endif 
call movecS (Xval(0),,%val(0),%val(20) ,buf fer3) 
if (LibSget_vm((20+record_length+16) ,emb$$w_hd_entry_address)) then 
call insque (%val(emb$$w_hd_entry_address) ,4val(insert_blink)) 
emb$$w_hd_entry = emb$w_hd_entry 
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error_log_record_length = record_length 
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0434 call movc3 cEval (12) .ombOSu hd_entry, 
ah 1 ZvalCemb$$w_hd_entry_address + 8) 
poh 34 call movc3 (%val(record_length) ,emb,%val (emb$$w_hd_entry_address + 20)) 
tes call movl (-1,%val (emb$$w_hd_entry_address+20+record_length)) 
pee) if (emb$w_hd_entry .eq. 100) then 
bee§ call get_current_label (3,emb$l_hd_sid,emb$b_lm_namlng,emb$t_\lm_name, 
mee 1 embSw_Tm_unit, 2val (emb$$w_hd_entry_addresst20trecord. Length+4J, «305 
beg else if (emb$w_hd_entry .eq. 99) then 
0448 call get_current_label (3,emb$l_hd_sid,emb$b 5B namlng,emb$t_sp_name 
0449 1 emb$w_Sp_unit. val (emb$$w_hd_entry_address?20trecord. Length+4), *305 
gaee endif 
Be 26 call movl sonbsGu hd entry eddrgesecderecord.lengthes, 
Be 32 1 ZvalCemb$$w_hd_entry_address+20+record_length) 
Oe ee 30 emb$$w_hd_entry_count = emb$$w_hd_entry_count + 1 
0289 call movl (emb$$w_hd_entry_count, 
0458 1 Xval(command_referénce_entry_address + 20)) 
ee7z endif 
60 
0461 return 
Beg endif 
Bibs command_reference_entry_address = flink2 
bce 90 cont inue 


error_log_record_number = reccnt 


1 
DISK_TAPE_DRIVERS_MSCP_Q iBese 1984 00:20: VAX=11 FORTRAN V3.4-56 P 10 
~Sep-19 4 99:60:38 DISKSVMSMASTER: ERF .SRCIDUTUDRIVR.FOR: 1 


R 
g 


call movcS (%val(0),,%val(0),%val(24) ,buffer2) 
if (LibSget_vm(24,command_reference_entry_address)) then 


call insque (%val(command_reference_entry_address), 
1 Zval(root_command_referénce_blink)) 


command_reference_ number = search _command_reference_number 
root_emb$$w_hd_entry_flink = command_reference_entry_address + 12 
root_emb$$w_hd_entry_blink = root_emb$$w_hd_entry_flink 


call movc3 (X%val(16),command_reference_number, 
1 Zval(command_reference_entry_address + 8)) 


command_reference_entry_count = command_reference_entry_count + 1 


call movl (command_reference_entry_count, 
1 Sval(logging_sid_entry_address + 20)) 


oo SES SSe= NSN NSO OO 


goto 25 
endif 
return 
endif 
Logging_sid_entry_address = flink1 
100 continue 
call movcS (%val(0),,%vat(0),%val (24) ,buffer1) 
i* (Lib$Sget_vm(24,logging_sid_entry_address)) then 
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oo 
wr 


call insque (%val(logging sid_entry_address), 
1 Zval (root. logging 24d pTinky) i 


lLogging_sid = emb$l_hd_sid 
root_command_reference_flink = logging_sid_entry_address + 12 
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19 root_command_reference_blink = root_command_reference_flink 

\¢ call movc3 (%val(16),logging_sid,%val (logging_sid_entry_address + 8)) 
\ lLogging_sid_entry_count = logging_sid_entry_count + 1 

1 oto 10 

19 gndi f 

18 

19 return 

3} 


entry DISK_TAPE_DRIVERS_MSCP_DQ (Lun,option) 


| H 1 

DISK_TAPE_DRIVERS_MSCP_Q 16-Sep-1984 00:20: VAX-11 FORTRAN V3.4-56 Page 11 

eT 7 99:80:38 DISKSVMSMASTER: CERF. SRCIDUTUDRIVR. FORTY 

a 

b2 § lLogging_sid_entry_address = root_logging_sid_flink 

0528 If (logging sid_entry_count .GT. 0) then 

82 3 Write ?tun,-$000 = 

530 9000 Format (////A/A//00000010111141 

0531 it BEGINING OF INTERVENING ENTRIES‘) 

be § Endif 

b2 ¢ do 150,i = 1,logging_sid_entry_count 

G2 8 call movc3 (Xval(24),%val (logging_sid_entry_address) ,buffer1) 

0338 command_reference_entry_address = root_command_reference_flink 

Ee do 200,j = 1,command_reference_entry_count 

B26 call movc3 (Xval(24),%val (command_reference_entry_address) ,buffer2) 

bece emb$$w_hd_entry_address = root_emb$$w_hd_entry_flink 

B28 do 250,k = 1,emb$$w_hd_entry_count 

B28 call movc3 (X%val(20),%val (emb$$w_hd_entry_address) ,buffer3) 

Bee0 call movc5 (%val(0),,%val(0),%val(512) ,emb) 

S236 call movc3 rive) Corver tag record Length), 

0332 1 Zval(emb$$w_hd_entry_address + 20),emb) 

0555 call DISK_TAPE_DRVR_MSCP_DISPATCHER (Lun,option, 

0556 1 error_log _record_number, 

0557 1 Xval Cemb$$Sw_hd_entry_address+20+error_log_record_length), 

bee8 1 error_log_record_length,k) 

3260 emb$$w_hd_entry_address = flink3 

026¢ 250 continue 

Bees command_reference_entry_address = flink2 

p208 200 cont inue | 
0568 logging_sid_entry_address = flink1 

0896 150 continue 

0571 

B26 return 

57 
0574 end 
| 
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DISK_TAPE_DRIVERS_MSCP_Q ig. ~50p-19 4 00:20:36 — VAXo11 FORTRAN Y3.4-56 Page a 


AP-0000000Ca@ I*4 SEARTH_COMMARD T REFERENCE NUMBER 


-Sep-1984 DISKSVMSFASTER: LERF .SRCIDUTUDRIVR.FOR; 
PROGRAM SECTIONS : 
Name Bytes Attributes : 
0 SCODE 90 PIC CON REL LCL SHR EXE RD NOWRT LONG ; 
1 SPDATA 9 PIC CON REL LCL SHR NOEXE RD NOWKT LONG ° 
¢ SLOCAL e PIC CON REL LCL NOSHR NOEXE RD WRT LONG ° 
1 PIC OVR REL GBL SHR NOEXE RD WRT LONG ° 
Total Space Allocated 2058 ; 
ENTRY POINTS : 
Address Type Name Address Type Name : 
0-00000290 DISK_TAPE_DRIVERS_MSCP_DQ 0-00000000 DISK_TAPE_DRIVERS_MSCP_Q 
VARIABLES : 
Address Type Name Address Type Name ; 
-00000030 I*4 BLINK! -00000018 I*4 BLINK2 : 
-00000004 I*4 BLINKS -00000054 I*4 COMMAND Re ER ENCE _ENTRY_ADDRESS 2 
-00000040 I*4 COMMAND wit te —ENTRY_COUNT -0000001C I*4 COMMAND REFERENCE NUMBER : 
-00000008 I*4 EmBS$$W_AD me's FH I1*4 EMBS$W_AD_ENTRY_ADDRESS : 
-00000028 [#4 atte HD cENTRY. COUNT -00000010 L*1 EmBse C CLASS ~ ; 
-00000014 L*1 $8_Cm_RAM -00000011 L*1 EMBSB_LM_TYPE ; 
-00000010 L*1 EMBSBTSPUCLASS -00000040 L*l EMBS$B_SP_NAMLN F 
-00000011 Lei € ie meiosis I*4 EMBSL_HD_SID : 
-00000014 I*4 EMBSL_SP_| -00000038 I*4 EMB$L_SP_CHAR F 
-0000003C I*4 EMBSL~SP~CMDREF -99000020 1*4 EMBSL"SP~I0SB1 : 
-00000024 I*4 EMBSL_SP_I1OS -00000018 I*4 EMBSL_SP_MEDIA : 
~0000002C 1*4 EMBSLSPTOPCNT -00000034 I*4 EMBSLSPTOWNUIC : 
-0000001C I*4 EMBSL_SP_ROPID -00000015 CHAR EMBST_LM_NAME 3 
-00000041 CHAR EMBST~SP_NAME 444 7 I*2 EMBSW_HD_ENTRY 3 
-9000000 1*2 EMBS$W~HD-ERRSEQ -00000024 I*2 EMBSWILM-MSGTYP : 
12 I*2 EMBSW_LM_UNIT misses ty I*2 EMBSW_SP_BOFF 3 
-000000 I*2 EMBSW_SP_ERRCNT -000000 I*2 EMBSW_SP_ Une 3 
-000000 ‘ I*2 EMBSW_SP STS -0000002A I*2 EMBSW-SP-UNIT 3 
1 1*4 ae 06 _RECORD_LENGTH e- “Ron NCD C I*4 ERROR-LOG_RECORD_NUMBER ; 
2C [4 FL INK 0000014 I*4 FLINK2 3 
I*4 FLINK = - ; 88 9 I*4 |] : 
C [4 INSERT BLINK - I*4 J é 
8 [6 - . 8 4 I*4 LOGGING_SID : 
0 [#4 LOGGING. SID_ENTRY_ADDRESS - fo 1*4 LOGGING SID_ENTRY_COUNT : 
AP @t*1 LUN AP- 33 Bite CHAR OPTION ~ : 
AP Ba I*4 RECCNT AP-00 4a 1*4 RECORD_LENGTH 3 
C I*4 ROOT_COMMAND REFERENCE Lim -000 | I*4 ROOT_COMMAND REFERENCE _FLINK : 
24 I*4 ROOT_EMBS$W_AD eit. BCIN - 39 8 20 I*4 ROOT-EMBSS$W_AD_ENTRY FCINK $ 
1*4 ROOT-LOGGING STD 00000044 14 ROOT"LOGGING_STD_FLIAK : 


———— 


DISK_TAPE_DRIVERS_MSCP_Q Ibe 300718 r 90: ¢?: 36 


ARRAYS 
Address Type Name Bytes Dimensions 


LABELS 
Address Label Address Label Address Label Address Label Address’ Label 
0-0000004C 10 0-0000007D 25 0-0000019D 30 hel 90 ae 100 
ee 200 ee 250 1-0000000C 9000' 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 


DISK_TAPE_DRVR_MSCP_DISPATCHER 
L*4 LIBSGET_VA 


Type Name Type Name 
GET_CURRENT_LABEL INSQUE 
moves MOVCS 


VAX=11 FORTRAN V3.4-56 
DISKSVMSMASTER: CERF .SRCIDUTUDRIVR.FOR; 


page 13 


Address Label 
** 150 


VAX=11_ FO 
DISKSVMSM 


iene 00:20:6 


TRAN ¥35 -4-56 e 14 
STER: CERF .SRCIDUTUDRIVR.FOR; Rog 


Subroutine DUDRIVER_Q10 (Lun,emb$w_dv_ func) 


include ‘src$:qiocommon.for /nolist' 


4 

* 
0 a byte lun 
o 6 integer*2 emb$w_dv_ func ; 
8 A integer*4 qiocode(0:1,0:63) ‘ 
0580 3 
0281 : 
8 Hy if (qiocode(0,0) .eq. 0) then : 
0384 aiocode<1.00) = Eloc( io$ nop) ; 
0285 qjocodes! °01) = Xloc(io$~unload) 3 
8 58 qiocode(1 °08) = Zloc(io$~ _packack) : 
0288 qiocode(1,10) = Zloc(io$_writecheck) ; 
8 89 qiocode(1,11) = Zloc(io$_writepblk) 3 
8 + qiocode(1,12) = %loc(io$_readpblk) : 
0 % qiocode(1,17) = Xloc(io$_available) : 
029 qiocodes! »¢8} Zloc(io$_setchar) 3 
8 Be qiocode(1,27) Zloc(io$_sensechar) 3 
9 96 qiocode(1,32) = %loc(io$_writelblk) F 

97 qiocode(1,33) = Zloc(io$_readlblk) $ 
8 oS qiocode(1,35) = Zloc(io$-setmode) 3 
0300 qiocode(1,39) = Zloc(io$_sensemode) : 
0301 qiocode(1,48) = Zloc(io$_writevbik) 3 
4 qiocode(1,49) Zloc(io$_readvblk) 3 
0 qiocode(1,50) = Xloc(io$_access) : 
0305 qiocode(1,51) = Zloc(io$-create) 3 
0 $ qiocode(1,52) = Zloc(io$_deaccess) 3 
0 qiocode(1,53) = Zloc(io$_delete) ; 
0 qiocodes} 30} Zloc(io$_modi fy) 3 
0310 aiocode(1, $) Zloc(io$— “Sepcontrol) 3 
O31 qiocode(1,57) = %loc(io$_mount) : 
9 18 do 10, = 0,63 F 
0318 aiocode(0,i) = 33 

318 if (qiocode(1,i) -09. 0 hen 

318 qiocode(1,i) = Zloc hen aleined 

335 endif 


1 
DUDRIVER_QI0 18-Sep-1984 90:20:38 VAX=11 FORTRAN it Pees 1 15 
“Sep-1984 15:54: DISKSVMSMASTER: CERF .SRCJDUTUDRIVR.FOR; 


10 cont inue 
endif 
call cdr pty. tung (lun gnbSu dy func 
1 qiocode(0,lib$e 6 


return 
end 


xtzv(0,6,emb$w_dv_func))) 
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PROGRAM SECTIONS 
Name Bytes Attributes 


SHR EXE RD NOWRT LONG 


0 SCODE L 
1 SPDATA | L SHR NOEXE RD NOWRT LONG 
54 L 


§ SLOCAL NOSHR NOEXE RD WRT LONG 
Q10c 


SHR NOEXE RD WRT LONG 
Total Space Allocated 2046 


ENTRY POINTS 
Address Type Name 
0-00000000 DUDRIVER_QI10 


VARIABLES 
Address Type Name Address Type Name 
EMBSW_DV_FUNC -00000 
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Sep-1986 13:84:28 
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Bytes Dimensions 


Address Type Name 


2-00000000 


(0:1, 0:63) 


512 


I*4 QIOCODE 


10 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 


Type Name 


I*4 LIBSEXTZV 


CDRPSwW_FUNC 


if seo-19Be 90:20:56 


VAX=11 FORTRAN Yes 4-56 


e 17 
DISKSVMSMASTER: LERF .SRCIDUTUDRIVR.FOR; Roy 


Subroutine TUDRIVER_Q10 (Lun,emb$w_dv_ func) 
include ‘src$:qiocommon.for /nolist’ 


byte lun 
integer*2 emb$w_dv_ func 


integer*4 qiocode(0:1,0:63) 


do 10,i = 0,63 
qiocode(0,i) = 33 


sh (qiocode(1,i) 09. 0 
q atocedet!. ei) = Zloc Bg + al 


5 
7 
: if (qiocode(0,0) .eq. 0) then 
0 § qiocode(1,00) = Zloc(io$_ “ore 
0 qyocoges} 1) = Zloc(io$_unload) 
8 Se qiocode(1,08) = Zloc(io$_packack) 
0 My] qiocode(1,10) = Zloc(io$_writecheck) 
028 qiocode(1,11) = Zloc(io$_writepblk) 
0 4 qiocode(1,12) = Zloc(io$_readpblk) 
g 90 qiocode(1,17) = Zloc(io$_ gvailebte) 
1 aiocodet! +g)? ZLOC(io$_dse 
8 § qiocode(1,26) = Zloc(io$_ a+ 
qiocode(1,27) = Zloc(io$_sensechar) 
5 qiocode(1, ¢ Zloc (io$_writelblk) 
8 38 agiocode(1,33) Zioc(io$_readlblk) 
0298 qiocode(!..33} Zloc (io$_setmode) 
0 qiocode(1,39) = Zloc(io$_sensemode) 
8 $ qiocode(1,48) = Zloc(io$_writevblk) 
0 § qiocode(1,49) = Zloc(io$_readvblk) 
8 Giocode(} . 29) Zloc(io$_access) 
O80s qiocode(1,51) = Zloc(io$“create) 
sno aiocodet} .3¢} Zloc(io$ ~deaccess) 
4 Giocodet! 3 ) = Zloc(io$-delete) 
4 qiocode(1,54) = Zloc(io$—“modify) 
0310 aiocode(} .36) Zloc(io$_acpcontrol) 
6 11 qiocode(1,57) = Zloc(io$_mount) 


PR ake 4 
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2 
TUDRIVER_Q10 ib-Se =1984 00:20: VAX=11 FORTRAN V3.4-56 p 
. 9038038 ed nGane ten Pear SecapurupRive.roee? 


-Sep-1984 
0321 10 continue 
8 § endif 
0324 call cdrp$w c (lLun,emb$w_dv_ func 
83 5 1 ghocode tort YoSextzvio. 6,emb$w_dv_ “tnatt? 
83 § return 
0328 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
CODE 250 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
SLOCAL 348 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
QIOCOMMON 124 PIC OVR REL GBL SHR EXE RD WRT LONG 
Total Space Allocated 2053 


ENTRY POINTS 
Address Type Name 


0-00000000 TUDRIVER_QI0 
VARIABLES 
Address Type Name Address Type Name 
AP-00000008@ I*2 EMBSW_DV_FUNC -00000 9 I*4 |] 
-00000442 CHAR -0000054D CHAR IOS$_ACCESS 
-000003C2 CHAR 10$_ yt poe 00000483 CHAR I0O$_AVAILABLE 
97 CHAR IO$-CL 00000369 CHAR IO$_CREATE 
85 CHAR I0$~ DEACCESS 00 te CHAR IO$_DELETE 
26D CHAR IO$_DIAGNOSE 00065 CHAR IO$_DRVCLR 
B CHAR I0$_ 4 OOOA9 CHAR I0$_ERASETAPE 
-00000276 CHAR I0$_FORMA 00071 CHAR ICS_INITIALIZE 
14 CHAR I0$_ LOADACODE 8 Al CHAR IOS_MODIFY 
E2 CHAR IO$_MOUN 00 CHAR I0$_NOP 
CHAR 10$_OF FSET OOOEB CHAR IO$~PACKACK 
0 CHAR I0$_QST F CHAR IO$_RDSTATS 
-00000421 CHAR IO$_REA Bese 169 CHAR I0$_READHEAD 
-00000 HAR I0$_READ 15F CHAR I0$_READPBLK 
~R008 CHAR J0$_ READPRE SET 195 CHAR 10$“READTRACKD 
A CHAR IO$~READVBLK 45A CHAR 10$_READWTHBU 
os CHAR 10$_READWTHXBUF 4D CHAR IO$_RECAL 
C CHAR IO$_RELEASE 1AB CHAR 108 -REREAON 
1B8 CHAR I0$_ ~iney CA CHAR IOS_RETCENTER 
2E6 CHAR I0$- Ad 9 CHAR I1O$_REWINDOFF 
FC CHAR IO$-SEARCH 4 CHAR IO$_SEEK 
-00000231 CHAR JO$S"SENSECHAR 0 9 CHAR I10$_SENSEMODE 


2 
TUDRIVER_Q10 Sep-1984 : VAX-11 FORTRAN V3.4-56 e 
~$een 138s 99:80:58 Tre amGGR STEN PERE SocapurupRive.roR’? 
misses 4 CHAR I10$_SETCHAR -000003B8 CHAR IO$_SETCLOCK 
= 88 CHAR I1O$_SETCLOCKP -000002DD CHAR I10$_SETMODE 
-00000 5p CHAR IOS_SKIPFILE - 8 FA CHAR IO$_SKIPRECORD 
9 CHAR IOS_SPACEFILE - 10E CHAR IO$_SPACERECORD 
-000003D7 CHAR IOS_STARTDATA - 0 ee CHAR IO$_STARTDATAP 
- Bee 7 CHAR IO$_STARTMPROC - F CHAR IO$_STARTSPNDL 
- 9 CHAR I0$_STOP -00 OD CHAR IO$_UNLOAD 
-0000046B CHAR I10$_WRITEBUFNCRC - B86 11E CHAR IO$_WRITECHECK 
~QO00001E4 CHAR IOS_WRITECHECKH ~QOOO03FF CHAR IOS_WRITECSR 
-00000153 CHAR I0$_WRITEHEAD m4 A2 CHAR [O0$_WRITELBLK 
-00000247 CHAR I0$_WRITEMARK -00000314 CHAR I0$_WRITEOF 
-000001 HAR I0$_WRITEPBLK - 4 9 CHAR IO$_WRITERET 
weiss IE CHAR 1O$_WRITETRACKD -000003 § CHAR 10$_WRITEVBLK 
3-00000448 CHAR I0$_WRITEWTHBUF -000002 CHAR IO$S_WRTTMKR 
AP-000000048 L*1 LUN -000004A1 CHAR QIO_STRING 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*4 QIOCODE 512 (0:1, 0:63) 
LABELS 
Address’ Label 
rad 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
CORP$W_FUNC I*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:DUTUDRIVR/OBJ=0BJ$:DUTUDRIVR MSRC$:DUTUDRIVR 


/ CHE CK=(NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOLS, TRACEBACK) 
/STANDARD=(NOSYNTAX ,NOSOURCE FORM) | 

/SHOW= (NOPREPR ROCESSOR. NOINCLODE 

7°77 /NOG_FLOATING 714 COPTIATTE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


11.00 seconds 
pct g Time: $8 53 seconds 
Page Faults: 5 
Dynamic Memory: 199 pages 
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